I Program 



' Write a Visual Basic Program to Enter XO Numbers 
And Calculate Sum Of Them., if The User Enters 
Negative Number Or Zero> The Operation Stops 
And Prints Sum. 



Module Modulel 
Sub MainQ 

Dim ij Xj Sum As Integer 
Sum = 

For i = 1 To 10 

X = InputBox("Enter " & i & " 's Number ") 
If X <= Then GoTo Ext 
Sum = Sum + X 

Next 

Ext: 

MsgBox("Sum is " & Sum) 
End Sub 
End Module 



2 hcI Program 



' Write a Visual Basic Program To Print The 
Multiplication Table in The Console Screen. 



Module Modulel 
Sub MainQ 

Dim ij j As Integer 
For i = 1 To 12 

For j = i To 12 

Console. Writel_ine(i & "x" & j & " = " 

& i * j) 

Next 

Console .Writ el_ine( ) 

Next 
End Sub 
End Module 



Mumkn Brdo T3w\lha B Do While Aw Do Until. 



*> Program 



' Write a V.B Program to Print This in the Console 
Screen 

**** 
*** 
** 
* 

Mumken Yege Ashkaal Tanyaa Bs el Fekra Vial da. 



Module Modulel 
Sub MainQ 

Dim ij j As Integer 
For i = 10 To 1 Step -1 
For j = 1 To i 

Console. Write ( "*" ) 

Next 

Console .Writ el_ine( ) 

Next 
End Sub 
End Module 



4 Program 



' Write a Visual Basic Program Representing a Simple 
Dictionary (Using Vectors). 



Module Modulel 
Sub MainQ 

Dim EnglishQ As String = {"Home", "Car", 

"Famous", "Easy"} 

Dim ArabicQ As String = {" ", '"OV, 
■i .••II ii * ii i 

Dim Valid As Boolean 
Dim Word As String 
Dim i As Integer 

Word = InputBox( "Enter the word you'd like to 
translate to arabic") 
For i = To 3 

If Word = English(i) Then 
Valid = True 
Exit For 
End If 

Next 

If Valid = True Then 

MsgBox("Translation is " & Arabic(i)) 

Else 

MsgBox( "Sorry, No Translation Found") 
End If 
End Sub 
End Module 



5 Program 



' Write a V.B Program To Calculate The Sum And The 
Maximum Element in the Diagonal Of a X l-O Matrix. 



Module Modulel 
Sub MainQ 

Dim A(10, 10) As Integer 

Dim ij jj Max., Sum As Integer 

For i = To 9 

For j = To 9 

A(i, j) = InputBox("Enter A(" & i & 

& j & ")") 

Next 

Next 

Max = A(0, 0) 
Sum = 

For i = To 9 

Sum = Sum + A(iji) 
If A(ij i) > Max Then Max = A(i, i) 

Next 

MsgBox("Sum is " & Sum & "Maximum is " & Max) 
End Sub 
End Module 



b Progrwn 



' Write a Function to Calculate TV Price After Discount And Transport Coast > TWe 
User VJiii Enter TWe Size and Price. 



1 Size Discount Transport 
' Size < 1-2 5% u>$ 
1 12 <= Size < 20 7% 20$ 
1 Size > 20 10% 30$ 



Module Modulel 

Sub Main() 

Dim Size, Price As Single 

Dim New_Price As Double 

Size = InputBox( "Enter TV Size") 

Price = InputBox( "Enter TV Price") 

New_Price = Discount (Size, Price) 

MsgBox( "Price After Discount = " & New_Price) 

End Sub 

Function Discount (ByVal Size As Single, 

ByVal Price As Single) 
Dim New_Price As Double 
If Size < 12 Then 

New Price = Price * 0.95 - 10 



Elself Size >= 12 And Size < 20 Then 
New Price = Price * 0.93 - 20 



Elself Size >= 20 Then 
New Price = Price * 



0.9 - 30 



End If 

Return (New_Price) 
End Function 
End Module 



7 Program 



' Write a Function To Accept Worker's Type > Salary , And Absence Pays Then 
Calculate His Salary According to His Type. 

' Type Hour's Price Tax Absence Day/1 

' 1 10 5% S$ 

' 2 2D 7% 7$ 

' 3 30 10% 10$ 



Module Modulel 
Sub Main() 

Dim Type, Abs As Integer 

Dim Hours, Salary As Single 

Type = InputBox( "Enter the worker type") 

Hours = InputBox( "Enter the work hours") 

Abs_Days = InputBox( "Enter the absence days") 

Salary = Sal(Type, Hours, Abs) 

MsgBox("The worker's salary is " & Salary) 

End Sub 

Function Sal(ByVal Type As Integer, 
ByVal Hours As Single, 
ByVal Abs As Integer) 
Dim Salary As Single 

If Type = 1 Then Salary = Hours * 10 * 0.95 + 100 
If Type = 2 Then Salary = Hours * 20 * 0.93 + 200 
If Type = 3 Then Salary = Hours * 30 * 0.9 + 300 
Return Salary 
End Function 
End Module 



- Abs * 5 

- Abs * 7 
- Abs * 10 



Note: De Mo3zm el Programs Ele msh Mwgoda F el Ktaab.. 
Fe Programs Muhma Mwgoda F el Ktab Brdo 
Menha Page 99 ( Resturant ) 

Page 113 & 114 
+ El 7agat el Adima B2a ele 2bl el Nested Loops :D 



Loads Of Luck, Everyone. 



For Any I nquiries Contact @Fb 



